COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "clok"
C00005 ENDMK
C⊗;
BEGIN "clok"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
REAL X1,Y1,X2,Y2,SIZE; STRING S; INTEGER I,J,K,L,M,N,DUM,CHN;
BOOLEAN SYN;
INTEGER ARRAY DIGS[0:9];

PROCEDURE DIG(REAL X;INTEGER I);
   BEGIN INTEGER J;
   J←DIGS[I];
   IF J LAND 1 THEN RECTAN(X+.2-.05*SIZE,-.03,X+.2,.3);
   IF J LAND 2 THEN RECTAN(X-.2,.24,X+.2,.3);
   IF J LAND 4 THEN RECTAN(X-.2,-.03,X-.2+.05*SIZE,.3);
   IF J LAND 8 THEN RECTAN(X-.2,-.3,X-.2+.05*SIZE,.03);
   IF J LAND 16 THEN RECTAN(X-.2,-.3,X+.2,-.24);
   IF J LAND 32 THEN RECTAN(X+.2-.05*SIZE,-.3,X+.2,.03);
   IF J LAND 64 THEN RECTAN(X-.2,-.03,X+.2,.03);
   END;


DIGS[0]←'77; DIGS[1]←'41; DIGS[2]←'133; DIGS[3]←'163; DIGS[4]←'145;
DIGS[5]←'166; DIGS[6]←'176; DIGS[7]←'43; DIGS[8]←'177; DIGS[9]←'167;
OUTSTR("SIZE:"); SIZE←REALSCAN(S←INCHWL,DUM); IF SIZE=0 THEN SIZE←1;
SCREEN(-1,-1/SIZE,1,1/SIZE);
OUTSTR("USE SYNTHESIZER?"); SYN←(INCHWL LAND '137)="Y";
IF ¬SYN THEN
   BEGIN
   CHN←GDDCHN(-1);
   OUTSTR("CHANNEL "&CVOS(CHN)&'15&'12);
   END;
WHILE TRUE DO
   BEGIN
   N←CALL(0,"TIMER")%3600;
   IF N≠DUM THEN
      BEGIN
      DUM←N;
      M←N%60;
      N←N MOD 60;
      DDINIT;
      IF M%10 ≠ 0 THEN DIG(-.8,M%10);
      DIG(-.3,M MOD 10);
      DIG(.25,N%10);
      DIG(.75,N MOD 10);
      RECTAN(-.05,.1,0,.15); RECTAN(-.05,-.15,0,-.1);
      FOR I←1 STEP 1 UNTIL 5 DO
      IF SYN THEN
        FOR K←'37 STEP -1 UNTIL '32 DO DPYUP(K)
      ELSE
        DPYUP(CHN);
      SHOWA(IF SYN THEN '47 ELSE CHN);
      END;
   CALL(1,"SLEEP");
   END;

END;